'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 4 November 2011 at 4:39:23 pm'!TestCase subclass: #TesteCelulaCobertura	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'CampoMinado-Testes'!!TesteCelulaCobertura methodsFor: 'as yet unclassified' stamp: 'vava 11/4/2011 16:36'!testaCelulaCoberturaNaoPodeSerInstanciadaSemCelula	self should:[Cobertura new] raise: Error. ! !!TesteCelulaCobertura methodsFor: 'as yet unclassified' stamp: 'vava 11/4/2011 16:39'!testeCriaCelulaCoberturaComCelula	|cobertura celulaVazia|		celulaVazia := CelulaVazia protectedNew.		cobertura:= Cobertura novaCoberturaComCelula: celulaVazia.	self should: [cobertura class = Cobertura].		self should: [cobertura privateCelula class = CelulaVazia].! !